home *** CD-ROM | disk | FTP | other *** search
/ What CD? 12 / What PC June 1997.iso / multi / cyber / cyber95 / _setup.1 / LOGO.POP < prev    next >
Encoding:
Text File  |  1996-09-04  |  1.1 KB  |  47 lines
  1. population 0
  2. dimensions = 1
  3. colour_model RGB
  4. render_quality flat
  5.  
  6. genome 0 {
  7.     // initialise turtle
  8.     noseUp( 1.570770 ),
  9.     setColour( hsv<.5,.5,.75> : hsv<0,.2,.5> : hsv<.99999,.99999,.99999> ),
  10.  
  11.     // make the reflected helix structure
  12.     *reflect(
  13.         <-1,1,1>,
  14.         repeat(
  15.             30 : 10 : 60,  // #segments
  16.             *join(
  17.                 // 'lay' a single segment
  18.                 scope(
  19.                     noseDown( dtor(90 : 45 : 135) ),
  20.                     // lay the cross-bar
  21.                     *scope(
  22.                         setTexture( norder false:toggle ),
  23.                         setBitmap( norder 0 : 0 : 20 ),
  24.                         setWrap( norder 0 : 0 : 2 ),
  25.                         eggVectorScale( <1,1,4> : <1,1,1> : <1,1,8> ),
  26.                         egg( norder 3 : 0 : 20 ),
  27.                         moveHue( -0.2 : -0.3 : 0.3 ),
  28.                         lay
  29.                     ),
  30.                     // lay the end-marker
  31.                     *forward( 2 : -4 : 4 ),
  32.                     egg( norder 2 : 0 : 20 ),
  33.                     setTexture( norder false:toggle ),
  34.                     setBitmap( norder 0 : 0 : 20 ),
  35.                     setWrap( norder 0 : 0 : 2 ),
  36.                     lay
  37.                 ),
  38.                 // inter-segment code
  39.                 *forward( 0.3 : -0.5 : 0.5 ),
  40.                 scale( 1.05 : 1.01 : 1.1 ),
  41.                 bankLeft( dtor(10 : -25 : 25) ),
  42.                 moveHue( 0.01 : 0.005 : 0.05 )
  43.             )
  44.         )
  45.     )
  46. }
  47.